home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / lisp / eulisp / you-075a.lha / you-075a / clip-switch.s < prev    next >
Text File  |  1992-01-17  |  747b  |  60 lines

  1. # generated by Norcroft CLIPPER C 3.18A Mar 13 1989 at 08:43:49
  2. # r0 EQU 0
  3. # r1 EQU 1
  4. # r2 EQU 2
  5. # r3 EQU 3
  6. # r4 EQU 4
  7. # r5 EQU 5
  8. # r6 EQU 6
  9. # r7 EQU 7
  10. # r8 EQU 8
  11. # r9 EQU 9
  12. # r10 EQU 10
  13. # r11 EQU 11
  14. # r12 EQU 12
  15. # r13 EQU 13
  16. # r14 EQU 14
  17. # sp EQU 15
  18. #
  19. # f0 EQU 0
  20. # f1 EQU 1
  21. # f2 EQU 2
  22. # f3 EQU 3
  23. # f4 EQU 4
  24. # f5 EQU 5
  25. # f6 EQU 6
  26. # f7 EQU 7
  27. #
  28.  .text
  29. #
  30. #
  31. ___codeseg:
  32.  .align 4
  33. #
  34. #
  35.  .byte 'c','r','e','a'
  36.  .byte 't','e','_','t'
  37.  .byte 'h','r','e','a'
  38.  .byte 'd',0,0,0
  39.  .long 0xff000010
  40.  .align 4
  41. #
  42. #
  43. _stack_switch_and_go:
  44.  movw    r0,r3        # Pick up the stack base
  45.  movw    r3,sp        # Set the stack pointer
  46.  b    (r1)        # enter the rest.
  47.  .align 4
  48. #
  49.  .data
  50. #
  51. ___dataseg:
  52. #
  53.  .globl _stack_switch_and_go
  54. #
  55. # .extern _nil
  56. # .extern __fprintf
  57. # .extern __iob
  58. #
  59. # END
  60.